Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/Science/Biology/WayeBox Folder/WayeBox 1.1/box3/background_2899.txt

Text File | 1990-06-13 | 9.4 KB | 447 lines

-- background: 2899 from stack: in
-- bmap block id: 4938
-- flags: 0000
-- background id: 0
-- name: waye address


-- part 103 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=247 top=292 right=342 bottom=354
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go to stack 1
----- HyperTalk script -----
on mouseUp
  get word 3 of field 3
  go to card id it of stack "BOX 2"
  -- && put your own stack name in place of BOX 2


end mouseUp



-- part 114 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=97 top=294 right=322 bottom=134
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to previous card
end mouseUp


-- part 115 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=136 top=295 right=323 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp


-- part 125 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=0 top=294 right=342 bottom=57
-- title width / last selected line: 0
-- icon id / first selected line: 21209 / 21209
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: date
----- HyperTalk script -----
on mouseUp
  put the date into bkgnd field "date"

end mouseUp



-- part 127 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=184 top=324 right=342 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: date


-- part 128 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=163 top=307 right=326 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ID


-- part 129 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=443 top=300 right=318 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: name


-- part 130 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=388 top=321 right=340 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: freezer name


-- part 132 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=2 top=272 right=294 bottom=102
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go to shelf
----- HyperTalk script -----
on mouseUp
  push card
  if field "shelf name" is empty then
    ask "what is the name of the shelf"
    if it is empty then exit mouseUp
    put it into field "Shelf Name"
  end if
  put field "shelf Name" into ShelfName
  go to stack "box2"
  go to card item 1 of ShelfName
end mouseUp




-- part 133 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=106 top=271 right=295 bottom=211
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: rename button
----- HyperTalk script -----
on mouseUp
  ask "What's the button number ?"
  put it into bu
  if it is empty then exit mouseUp
  set the script of button bu to empty
  get the script of bkgnd button "script template"
  set the script of button bu to it
  set the name of button bu to item 1 of field "name"

end mouseUp



-- part 134 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=212 top=271 right=295 bottom=273
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pop card
----- HyperTalk script -----
on mouseUp
  pop card
end mouseUp



-- part 135 (button)
-- low flags: 00
-- high flags: 0003
-- rect: left=339 top=269 right=292 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: script template
----- HyperTalk script -----
on mouseUp
  get word 3 of field 3
  go to card id it of stack "box4"
end mouseUp



-- part 136 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=388 top=288 right=302 bottom=459
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: location


-- part 137 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=370 top=303 right=318 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: shelf name


-- part 139 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=179 top=288 right=310 bottom=279
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go to freezer
----- HyperTalk script -----
on mouseUp
  push card
  if field "freezer name" is empty then
    ask "what is the name of the freezer"
    if it is empty then exit mouseUp
    put it into field "freezer Name"
  end if

  put field "freezer Name" into FreezerName
  go to stack "box2"
  go to card item 1 of FreezerName
end mouseUp




-- part 140 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=89 top=323 right=341 bottom=179
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: no. of cards
----- HyperTalk script -----
on mouseUp
  set userlevel to 5
  put empty into message box
  get number of cards
  put "The total Number of Cards = " into word 1 of message
  put it into word 7 of message
  set userlevel to 2
end mouseUp



-- part 141 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=364 top=270 right=290 bottom=436
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Empty all
----- HyperTalk script -----
on mouseUp
  answer "Do you want to empty all fields?" with "yes" or "no" or "cancel"
  if it is "no" then exit mouseUp
  if it is "cancel" then exit mouseUp
  repeat with i=1 to 7
    put empty into field i
  end repeat
end mouseUp



-- part 143 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=105 top=18 right=36 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: name of box


-- part 145 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=51 top=294 right=335 bottom=99
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  push card
  go to card id 11167 of stack "box4"
end mouseUp




-- part 147 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=430 top=268 right=289 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Card
----- HyperTalk script -----
on mouseUp
  answer "Make another card like this one? " with "yes" or "no" or "cancel"
  if it is "cancel" then exit mouseUp
  if it is "no" then
    put "Go to the card which you want to copy" into the message box
    exit mouseUp
  end if

  if it is "yes" then

    domenu "copy Card"
    domenu paste card
    set name of this card to empty
    repeat with i=1 to number of fields
      put empty into field i
    end repeat
    repeat with i=1 to number of card fields
      put empty into field i
    end repeat
    put empty into field "Name"
  end if

end mouseUp



-- part 148 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=275 top=269 right=293 bottom=363
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Name Card
----- HyperTalk script -----
on mouseUp
  put empty into NameCard
  if field "Name of Box" is empty
  then
  ask "Please enter the name of this card:"
  if it is empty then exit mouseUp
  put it into NameCard
  set the name of this card to empty
  put NameCard into field "Name of Box"
end if

if field "Name of Box" is not empty
then
put first line of field "Name of Box" into NameCard
set the name of this card to NameCard
end if

end mouseUp